| File information: | |
| File name: | DoubleDefs.mesa_Mar78.pdf [preview DoubleDefs.mesa Mar78] |
| Size: | 27 kB |
| Extension: | |
| Mfg: | xerox |
| Model: | DoubleDefs.mesa Mar78 🔎 |
| Original: | DoubleDefs.mesa Mar78 🔎 |
| Descr: | xerox mesa 3.0_1977 listing DoubleDefs.mesa_Mar78.pdf |
| Group: | Electronics > Other |
| Uploaded: | 12-03-2020 |
| User: | Anonymous |
| Multipart: | No multipart |
| Information about the files in archive: | ||
| Decompress result: | OK | |
| Extracted files: | 1 | |
File name DoubleDefs.mesa_Mar78.pdf DOUBLEDEFS.MESA 30-MAR-78 14:47:33 Page 1 -- DoubleDefs.Mesa Edited by Johnsson on March 24, 1977 8:57 AM DIRECTORY InlineDefs: FROM "inlinedefs"; DoubleDefs: DEFINITIONS = BEGIN LongCARDINAL: TYPE = InlineDefs.LongCARDINAL; Comparison: TYPE = {less, equal, greater}; DDivide: PROCEDURE [num, den: LongCARDINAL] RETURNS [quotient, remainder: LongCARDINAL]; DMultiply: PROCEDURE [a,b: LongCARDINAL] RETURNS [product: LongCARDINAL]; DApd: PROCEDURE [a.b: LongCARDINAL] RETURNS [LongCARDINAL]; DSub: PROCEDURE [a.b: LongCARDINAL] RETURNS [LongCARDINAL]; DNeg: PROCEDURE [a: LongCARDINAL] RETURNS [LongCARDINAL]; DInc: PROCEDURE [a: LongCARDINAL] RETURNS [LongCARDINAL]; DCompare: PROCEDURE [a.b: LongCARDINAL] RETURNS [Comparison]; AppendDouble: PROCEDURE [s:STRING. a: LongCARDINAL]; END. | ||

| Date | User | Rating | Comment |